;;Exercise 1.3.  
;;Define a procedure that takes three numbers as arguments and
;;returns the sum of the squares of the two larger numbers.

(define (square x)
  (* x x))

(define (three-squares-sum x y z)
  (cond ((and (> x z) (> y z))
             (+ (square x) (square y)))
        ((and (> y x) (> z x))
             (+ (square y) (square z)))
        (else (+ (square x) (square z)))))

(display (three-squares-sum 1 2 3))
